home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / optmenu.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.0 KB  |  52 lines
  1. # CVS $Id: optmenu.tcl,v 1.3 1995/02/03 16:55:06 zibi Exp $
  2.  
  3. #
  4. # Test program for the option menu
  5. #
  6. #
  7.  
  8. global lab1 menu
  9.  
  10. proc quitCB {cbs} {
  11.         VtClose
  12.         exit 0
  13. }
  14.  
  15. proc optMenuCB {cbs} {
  16.     global lab1 menu
  17.  
  18.     set selectedWidget [VtGetValues $menu -selectedWidget]
  19.     set selectedLabel [VtGetValues $selectedWidget -label]
  20.  
  21.     VtSetValues $lab1 -label "Selected: $selectedLabel"
  22. }
  23.  
  24.  
  25. #
  26. # Start Program
  27. #
  28. set app [VtOpen optionMenu]
  29.  
  30. set fn [VtStartForm $app.form -title "Option Menus"]
  31.  
  32. set menu [VtOptionMenu $fn.optmenu -label "Pick one:" -callback optMenuCB]
  33. set but1 [VtPushButton $menu.but1  -label Saab]
  34. set but2 [VtPushButton $menu.but2  -label Acura]
  35. set but3 [VtPushButton $menu.but3 -label Lexus]
  36. VtSetValues $menu -selectedWidget $but2
  37.  
  38. set lab1 [VtLabel $fn.lab -label "Selection: Saab" -topOffset 20  \
  39.                                    -CHARM_topOffset 2]
  40.  
  41. set quit [VtPushButton $fn.quit -callback quitCB \
  42.                                 -leftSide FORM \
  43.                 -rightSide FORM \
  44.                 -bottomSide FORM]
  45.  
  46. # set label to initial value
  47. optMenuCB ""
  48.  
  49. VtShow $fn
  50. VtMainLoop
  51.  
  52.